home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / math / g_lcm.bas next >
BASIC Source File  |  1994-05-29  |  335b  |  13 lines
  1. 10 CLS
  2. 20 PRINT "ＡとＢの最大公約数・最小公倍数の計算                   解答時にＰＦ１でメニュー"
  3. 30 INPUT "A=",A
  4. 40 INPUT "B=",B
  5. 50 C=A*B
  6. 60 D=A-INT(A/B)*B
  7. 70  IF D=0 THEN 100
  8. 80  A=B:B=D
  9. 90 GOTO 60 
  10. 100 PRINT "最大公約数＝"B"最小公倍数＝"C/B
  11. 110 A$=INKEY$:IF A$="" THEN 110
  12. 120 IF A$="1" THEN RUN "MENU.BAS" ELSE GOTO 10
  13.